home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 2 / DOS031.dsk / APPLE INSIDE AN APPLE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  12KB  |  270 lines
  1. 0  LIST 25900
  2. 1  FOR X = 1 TO 2000: NEXT X
  3. 1000  TEXT : HOME 
  4. 1010  SPEED= 255: INVERSE :A$ = " "
  5. 1020  FOR I = 1 TO 11: FOR J = 1 TO 39: VTAB I: HTAB J: PRINT A$: VTAB 23 -I: HTAB J: PRINT A$: NEXT J: PRINT : NEXT I
  6. 1022  SPEED= 200: FOR K = 1 TO 5
  7. 1023 A$ =  CHR$( INT( RND(1) *16) +32)
  8. 1025  FOR I = 4 TO 35: VTAB 5: HTAB I: PRINT A$: VTAB 15: HTAB I: PRINT A$: NEXT I: FOR I = 5 TO 15: VTAB I: HTAB 4: PRINT A$: VTAB I: HTAB 35: PRINT A$: NEXT I: INVERSE 
  9. 1030  VTAB 8: HTAB 7: PRINT " AN APPLE INSIDE AN APPLE "
  10. 1060  VTAB 10: HTAB 18: PRINT " BY "
  11. 1090  VTAB 12: HTAB 15: PRINT " CUSIMANO "
  12. 1100  NEXT K
  13. 1300  FOR I = 1 TO 4000: NEXT I
  14. 1320 A$ = "   "
  15. 1330  FOR I = 1 TO 18: VTAB I: FOR J = 1 TO 13: PRINT A$;: NEXT J: PRINT : NEXT I
  16. 1400  VTAB 3: HTAB 7: PRINT "AN APPLE INSIDE AN APPLE"
  17. 1500  VTAB 6: PRINT " AFTER  DOS (DISK OPERATING SYSTEM)": PRINT : PRINT " IS BOOTED HIT ANY KEY AND WATCH THE": PRINT : PRINT " SCREEN."
  18. 1530  FOR I = 1 TO 10000: NEXT I
  19. 3000  GR : POKE  -16302,0: CALL  -1998
  20. 3100  REM   CASE ***<CTRL-G>
  21. 3110  COLOR= 10: FOR I = 3 TO 36: VLIN 3,45 AT I: NEXT I
  22. 3170  REM   PLUG ***<CTRL-G>
  23. 3180  HLIN 7,9 AT 2: VLIN 0,2 AT 8
  24. 3200  REM   VENT HOLES ***<CTRL-G>
  25. 3210  COLOR= 0: FOR I = 7 TO 24  STEP 2: PLOT 3,I: PLOT 36,I: NEXT I
  26. 3300  REM   BOTTOM ROW ***<CTRL-G>
  27. 3310  COLOR= 8: HLIN 12,26 AT 42: FOR I = 10 TO 28  STEP 2: PLOT I,40: NEXT I
  28. 3450  REM   SHIFT KEYS ***<CTRL-G>
  29. 3460  HLIN 7,8 AT 40: HLIN 30,31 AT 40
  30. 3500  REM   HOME ROW KEYS ***<CTRL-G>
  31. 3510  FOR I = 7 TO 31  STEP 2: PLOT I,38: NEXT I
  32. 3600  REM   ABOVE KEYS ***<CTRL-G>
  33. 3610  FOR I = 7 TO 30  STEP 2: PLOT I,36: NEXT I
  34. 3650  REM   RETURN KEY ***<CTRL-G><CTRL-G><CTRL-G>
  35. 3660  HLIN 31,32 AT 36
  36. 3700  REM   RETURN KEY ***<CTRL-G><CTRL-G>
  37. 3710  FOR I = 8 TO 30  STEP 2: PLOT I,34: NEXT I
  38. 3800  REM     RESET KEY ****<CTRL-G><CTRL-G><CTRL-G>
  39. 3810  COLOR= 13: PLOT 32,34: FOR I = 1 TO 1000: NEXT I: PRINT  CHR$(7);
  40. 4000  REM   POWER LIGHT ***<CTRL-G><CTRL-G>
  41. 4010  COLOR= 15: HLIN 7,8 AT 42: HLIN 7,8 AT 43
  42. 4020  HLIN 7,8 AT 42
  43. 4100  ONERR  GOTO 10000
  44. 4980  REM <CTRL-J><CTRL-J>  ' BOOT DOS ' ***<CTRL-J><CTRL-J><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G>
  45. 4990  VTAB 1: PRINT 
  46. 5000 D$ =  CHR$(13) + CHR$(4)
  47. 5010  PRINT D$"DELETE JUNK"
  48. 10000  REM <CTRL-J><CTRL-J>  HIT ANY KEY ****<CTRL-J><CTRL-J><CTRL-G><CTRL-P><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G>
  49. 10010  POKE 216,0: REM  RESET     ONERR GOTO **<CTRL-G><CTRL-G>
  50. 10100  GET A$
  51. 10200  IF  ASC(A$) <32  THEN 10100
  52. 10210  IF  ASC(A$) = 32  THEN  GOSUB 10230: GOTO 10100
  53. 10220  GOTO 10280
  54. 10230  COLOR= 15: HLIN 12,26 AT 42: FOR I = 1 TO 200: NEXT : COLOR= 8: HLIN 12,26 AT 42: COLOR= 2: FOR I = 17 TO 23: VLIN 16,24 AT I: NEXT : COLOR= 8: RETURN 
  55. 10280  RESTORE 
  56. 10300  FOR I = 1 TO 59: READ A,X,Y: IF A =  ASC(A$)  THEN 10400
  57. 10320  NEXT I
  58. 10330  GOTO 10100
  59. 10400  COLOR= 15: PLOT X,Y: FOR I = 1 TO 100: NEXT I: COLOR= 8: PLOT X,Y: COLOR= 2: FOR I = 17 TO 23: VLIN 16,24 AT I: NEXT I: COLOR= 8
  60. 10500  GOSUB 11000
  61. 10600  GOTO 10100
  62. 11000  REM <CTRL-J><CTRL-J>PRINT GR CHAR. ***<CTRL-G><CTRL-J><CTRL-G><CTRL-J><CTRL-G><CTRL-J><CTRL-G><CTRL-J><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G>
  63. 11010  COLOR= 10
  64. 11100  IF ( ASC(A$) -32) >36  THEN 11135
  65. 11110  ON  ASC(A$) -32 GOSUB 11200,11300,11400,11500,11600,11700,11800,11900,12000,12100,12200,12300,12400,12500,12600,12700,12800,12900,13000,13100,13200,13300,13400,13500,13600,13700,13800,13900,14000,14100,14200,14300,14400,14500,14600,14700
  66. 11120  GOTO 11150
  67. 11135  ON  ASC(A$) -68 GOSUB 14800,14900,15000,15100,15200,15300,15400,15500,15600,15700,15800,15900,16000,16100,16200,16300,16400,16500,16600,16700,16800,16900,17000
  68. 11140  IF ( ASC(A$) -32) >59  THEN  RETURN 
  69. 11150  RETURN 
  70. 11200  REM !
  71. 11210  VLIN 17,21 AT 20: PLOT 20,23
  72. 11220  RETURN 
  73. 11300  REM "
  74. 11310  VLIN 17,19 AT 19: VLIN 17,19 AT 21: RETURN 
  75. 11400  REM #
  76. 11410  VLIN 17,23 AT 19: VLIN 17,23 AT 21: HLIN 18,22 AT 19: HLIN 18,22 AT 21
  77. 11420  RETURN 
  78. 11500  REM $
  79. 11510  VLIN 17,23 AT 20: HLIN 19,22 AT 18: HLIN 18,21 AT 22: HLIN 19,21 AT 20: PLOT 18,19: PLOT 22,21
  80. 11520  RETURN 
  81. 11600  REM %
  82. 11610  VLIN 17,18 AT 18: VLIN 17,18 AT 19: VLIN 22,23 AT 21: VLIN 22,23 AT 22
  83. 11620  PLOT 18,22: PLOT 19,21: PLOT 20,20: PLOT 21,19: PLOT 22,18
  84. 11630  RETURN 
  85. 11700  REM &
  86. 11710  VLIN 18,19 AT 18: VLIN 18,19 AT 20: VLIN 21,22 AT 18: HLIN 19,20 AT 23
  87. 11720  PLOT 19,17: PLOT 19,20: PLOT 20,21: PLOT 21,22: PLOT 22,23: PLOT 22,21
  88. 11730  RETURN 
  89. 11800  REM '
  90. 11810  VLIN 17,19 AT 20
  91. 11820  RETURN 
  92. 11900  REM (
  93. 11910  VLIN 19,21 AT 18: PLOT 20,17: PLOT 19,18: PLOT 19,22: PLOT 20,23
  94. 11920  RETURN 
  95. 12000  REM )
  96. 12010  VLIN 19,21 AT 22: PLOT 20,17: PLOT 21,18: PLOT 20,23: PLOT 21,22
  97. 12020  RETURN 
  98. 12100  REM *
  99. 12110  VLIN 17,23 AT 20: HLIN 19,21 AT 19: HLIN 19,21 AT 21: PLOT 18,18: PLOT 22,18: PLOT 18,22: PLOT 22,22
  100. 12120  RETURN 
  101. 12200  REM +
  102. 12210  VLIN 18,22 AT 20: HLIN 18,22 AT 20: RETURN 
  103. 12300  REM ,
  104. 12310  VLIN 21,22 AT 20: PLOT 19,23: RETURN 
  105. 12400  REM -
  106. 12410  HLIN 18,22 AT 20: RETURN 
  107. 12500  REM .
  108. 12510  PLOT 20,23: RETURN 
  109. 12600  REM /
  110. 12610  FOR I = 18 TO 22: PLOT I,40 -I: NEXT I: RETURN 
  111. 12700  REM 0
  112. 12710  VLIN 18,22 AT 18: VLIN 18,22 AT 22: HLIN 19,21 AT 17: HLIN 19,21 AT 23
  113. 12720  FOR I = 19 TO 21: PLOT I,40 -I: NEXT I: RETURN 
  114. 12800  REM 1
  115. 12810  VLIN 17,23 AT 20: HLIN 19,21 AT 23: PLOT 19,18: RETURN 
  116. 12900  REM 2
  117. 12910  HLIN 19,21 AT 17: HLIN 18,22 AT 23: VLIN 18,19 AT 22: HLIN 20,21 AT 20: PLOT 19,21: PLOT 18,22
  118. 12920  PLOT 18,18: RETURN 
  119. 13000  REM 3 
  120. 13010  HLIN 18,22 AT 17: HLIN 19,21 AT 23: VLIN 21,22 AT 22: PLOT 18,22: VLIN 19,20 AT 21: PLOT 20,20: PLOT 22,18: RETURN 
  121. 13100  REM 4
  122. 13110  VLIN 17,23 AT 21: HLIN 18,22 AT 21: PLOT 18,20: PLOT 19,19: PLOT 20,18: RETURN 
  123. 13200  REM 5
  124. 13210  HLIN 18,22 AT 17: HLIN 18,21 AT 19: HLIN 19,21 AT 23: VLIN 17,19 AT 18: VLIN 20,22 AT 22: PLOT 18,22: RETURN 
  125. 13300  REM 6
  126. 13310  HLIN 20,22 AT 17: HLIN 18,21 AT 20: HLIN 19,21 AT 23: VLIN 19,22 AT 18: PLOT 19,18: VLIN 21,22 AT 22: RETURN 
  127. 13400  REM 7
  128. 13410  HLIN 18,22 AT 17: VLIN 21,23 AT 19: PLOT 20,20: PLOT 21,19: PLOT 22,18: RETURN 
  129. 13500  REM 8
  130. 13510  HLIN 19,21 AT 17: HLIN 19,21 AT 20: HLIN 19,21 AT 23: VLIN 18,19 AT 18: VLIN 18,19 AT 22: VLIN 21,22 AT 18: VLIN 21,22 AT 22: RETURN 
  131. 13600  REM 9
  132. 13610  HLIN 19,21 AT 17: HLIN 19,21 AT 20: VLIN 18,19 AT 18: VLIN 18,21 AT 22: PLOT 21,22: HLIN 18,20 AT 23: RETURN 
  133. 13700  REM :
  134. 13710  PLOT 20,19: PLOT 20,21: RETURN 
  135. 13800  REM ;
  136. 13810  VLIN 21,22 AT 20: PLOT 20,19: PLOT 19,23: RETURN 
  137. 13900  REM <
  138. 13910  FOR I = 18 TO 21: PLOT I,38 -I: NEXT I
  139. 13920  FOR I = 18 TO 21: PLOT I,I +2: NEXT I: RETURN 
  140. 14000  REM =
  141. 14010  HLIN 18,22 AT 19: HLIN 18,22 AT 21: RETURN 
  142. 14100  REM >
  143. 14110  FOR I = 19 TO 22: PLOT I,I -2: NEXT I: FOR I = 19 TO 22: PLOT I,42 -I: NEXT I: RETURN 
  144. 14200  REM ?
  145. 14210  HLIN 19,21 AT 17: PLOT 18,18: PLOT 22,18: PLOT 21,19: PLOT 20,23: VLIN 20,21 AT 20: RETURN 
  146. 14300  REM @
  147. 14310  HLIN 19,21 AT 17: HLIN 19,22 AT 23: VLIN 18,22 AT 18: VLIN 18,20 AT 22: VLIN 19,21 AT 20: VLIN 20,21 AT 21: RETURN 
  148. 14400  REM A
  149. 14410  VLIN 19,23 AT 18: VLIN 19,23 AT 22: HLIN 18,22 AT 21: PLOT 20,17: PLOT 19,18: PLOT 21,18: RETURN 
  150. 14500  REM B
  151. 14510  VLIN 17,23 AT 18: HLIN 18,21 AT 17: HLIN 18,21 AT 20: HLIN 18,21 AT 23: VLIN 18,19 AT 22: VLIN 21,22 AT 22: RETURN 
  152. 14600  REM C
  153. 14610  VLIN 18,22 AT 18: HLIN 19,21 AT 17: HLIN 19,21 AT 23: PLOT 22,18: PLOT 22,22: RETURN 
  154. 14700  REM D
  155. 14710  VLIN 17,23 AT 18: VLIN 18,22 AT 22: HLIN 18,21 AT 17: HLIN 18,21 AT 23: RETURN 
  156. 14800  REM E
  157. 14810  VLIN 17,23 AT 18: HLIN 18,22 AT 17: HLIN 18,21 AT 20: HLIN 18,22 AT 23: RETURN 
  158. 14900  REM F
  159. 14910  VLIN 17,23 AT 18: HLIN 18,22 AT 17: HLIN 18,21 AT 20: RETURN 
  160. 15000  REM G
  161. 15010  VLIN 18,22 AT 18: HLIN 19,22 AT 17: HLIN 19,22 AT 23: VLIN 21,23 AT 22: PLOT 21,21: RETURN 
  162. 15100  REM H
  163. 15110  VLIN 17,23 AT 18: VLIN 17,23 AT 22: HLIN 18,22 AT 20: RETURN 
  164. 15200  REM I
  165. 15210  HLIN 19,21 AT 17: HLIN 19,21 AT 23: VLIN 17,23 AT 20: RETURN 
  166. 15300  REM J
  167. 15310  VLIN 17,22 AT 22: HLIN 19,21 AT 23: PLOT 18,22: RETURN 
  168. 15400  REM K
  169. 15410  VLIN 17,23 AT 18
  170. 15420  FOR I = 19 TO 22: PLOT I,39 -I: PLOT I,I +1: NEXT I: RETURN 
  171. 15500  REM L
  172. 15510  VLIN 17,23 AT 18: HLIN 18,22 AT 23: RETURN 
  173. 15600  REM M
  174. 15610  VLIN 17,23 AT 18: VLIN 17,23 AT 22: VLIN 19,20 AT 20: PLOT 19,18: PLOT 21,18: RETURN 
  175. 15700  REM N
  176. 15710  VLIN 17,23 AT 18: VLIN 17,23 AT 22: PLOT 19,19: PLOT 20,20: PLOT 21,21: RETURN 
  177. 15800  REM O
  178. 15810  HLIN 19,21 AT 17: HLIN 19,21 AT 23: VLIN 18,22 AT 18: VLIN 18,22 AT 22: RETURN 
  179. 15900  REM P
  180. 15910  HLIN 18,21 AT 17: HLIN 18,21 AT 20: VLIN 17,23 AT 18: VLIN 18,19 AT 22: RETURN 
  181. 16000  REM Q
  182. 16010  HLIN 19,21 AT 17: VLIN 18,22 AT 18: VLIN 18,21 AT 22: HLIN 19,20 AT 23: PLOT 20,21: PLOT 21,22: PLOT 22,23: RETURN 
  183. 16100  REM R
  184. 16110  HLIN 18,21 AT 17: HLIN 18,21 AT 20: VLIN 17,23 AT 18: VLIN 18,19 AT 22: PLOT 20,21: PLOT 21,22: PLOT 22,23: RETURN 
  185. 16200  REM S
  186. 16210  HLIN 19,21 AT 17: HLIN 19,21 AT 20: HLIN 19,21 AT 23: VLIN 18,19 AT 18: VLIN 21,22 AT 22: PLOT 22,18: PLOT 18,22: RETURN 
  187. 16300  REM T
  188. 16310  HLIN 18,22 AT 17: VLIN 17,23 AT 20: RETURN 
  189. 16400  REM U
  190. 16410  VLIN 17,22 AT 18: VLIN 17,22 AT 22: HLIN 19,21 AT 23: RETURN 
  191. 16500  REM V
  192. 16510  VLIN 17,21 AT 18: VLIN 17,21 AT 22: PLOT 19,22: PLOT 20,23: PLOT 21,22: RETURN 
  193. 16600  REM W
  194. 16610  VLIN 17,23 AT 18: VLIN 17,23 AT 22: VLIN 20,21 AT 20: PLOT 19,22: PLOT 21,22: RETURN 
  195. 16700  REM X
  196. 16710  VLIN 17,18 AT 18: VLIN 17,18 AT 22: VLIN 22,23 AT 18: VLIN 22,23 AT 22: PLOT 19,19: PLOT 20,20: PLOT 21,21: PLOT 19,21: PLOT 21,19: RETURN 
  197. 16800  REM Y
  198. 16810  VLIN 17,18 AT 18: VLIN 17,18 AT 22: VLIN 20,23 AT 20: PLOT 19,19: PLOT 21,19: RETURN 
  199. 16900  REM Z
  200. 16910  HLIN 18,22 AT 17: HLIN 18,22 AT 23: PLOT 18,22: PLOT 19,21: PLOT 20,20: PLOT 21,19: PLOT 22,18: RETURN 
  201. 19999  GOTO 10100
  202. 20000  DATA  65,9,38,66,18,40
  203. 20002  DATA  67,14,40,68,13,38
  204. 20004  DATA  69,13,36
  205. 20006  DATA  70,15,38
  206. 20008  DATA  71,17,38
  207. 20010  DATA  72,19,38
  208. 20012  DATA  73,23,36
  209. 20014  DATA  74,21,38
  210. 20016  DATA  75,23,38
  211. 20018  DATA  76,25,38
  212. 20020  DATA  77,22,40
  213. 20022  DATA  78,20,40
  214. 20024  DATA  79,25,36
  215. 20026  DATA  80,27,36
  216. 20028  DATA  81,9,36
  217. 20030  DATA  82,15,36
  218. 20032  DATA  83,11,38
  219. 20034  DATA  84,17,36
  220. 20036  DATA  85,21,36
  221. 20038  DATA  86,16,40
  222. 20040  DATA  87,11,36
  223. 20042  DATA  88,12,40
  224. 20044  DATA  89,19,36
  225. 20046  DATA  90,10,40
  226. 20048  REM <CTRL-G> <CTRL-G> <CTRL-G> <CTRL-G>S<CTRL-G>H<CTRL-G>I<CTRL-G>F<CTRL-G>T<CTRL-G> <CTRL-G>C<CTRL-G>H<CTRL-G>A<CTRL-G>R<CTRL-G>.<CTRL-G>S<CTRL-G>
  227. 20050  DATA  49,8,34
  228. 20052  DATA  50,10,34
  229. 20054  DATA  51,12,34
  230. 20056  DATA  52,14,34
  231. 20058  DATA  53,16,34
  232. 20060  DATA  54,18,34
  233. 20062  DATA  55,20,34
  234. 20064  DATA  56,22,34
  235. 20066  DATA  57,24,34
  236. 20068  DATA  48,26,34
  237. 20070  DATA  58,28,34
  238. 20072  DATA  59,27,38
  239. 20074  DATA  60,24,40
  240. 20076  DATA  61,30,34
  241. 20078  DATA  62,26,40
  242. 20080  DATA  63,28,40
  243. 20082  DATA  64,27,36
  244. 20084  DATA  33,8,34
  245. 20086  DATA  34,10,34
  246. 20088  DATA  35,12,34
  247. 20090  DATA  36,14,34
  248. 20092  DATA  37,16,34
  249. 20094  DATA  38,18,34
  250. 20096  DATA  39,20,34
  251. 20098  DATA  40,22,34
  252. 20100  DATA  41,24,34
  253. 20102  DATA  42,28,34
  254. 20104  DATA  43,27,38
  255. 20106  DATA  44,24,40
  256. 20108  DATA  45,30,34
  257. 20110  DATA  46,26,40
  258. 20112  DATA  47,28,40
  259. 20114  DATA  94,20,40
  260. 25900  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>           <CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>FROM:  APPLE-CAN<CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J>
  261. 32767  POKE 216,0: FOR I = 1 TO 1E38: NEXT I
  262. 63000  REM <CTRL-J><CTRL-G><CTRL-J><CTRL-G><CTRL-J><CTRL-G><CTRL-J><CTRL-G><CTRL-J><CTRL-G><CTRL-J><CTRL-G><CTRL-J><CTRL-G><CTRL-J><CTRL-G><CTRL-J><CTRL-G><CTRL-J><CTRL-G><CTRL-J><CTRL-G><CTRL-J><CTRL-G><CTRL-J><CTRL-G>
  263. 63100  REM  * APPLE IN AN APPLE *<CTRL-J><CTRL-J>
  264. 63110  REM BY DAVID CUSIMANO<CTRL-J>
  265. 63120  REM AGE - 14!<CTRL-J>
  266. 63130  REM A MEMBER OF
  267. 63140  REM APPLE-CAN  ****<CTRL-J>
  268. 63150  REM IN TORONTO, ONTARIO,
  269. 63160  REM CANADA<CTRL-J><CTRL-J>
  270. 63170  REM   DEC. 23, 1979<CTRL-J>        MERRY CHRISTMAS ...